home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Show on Desktop 4.xpl < prev    next >
Text File  |  2001-11-27  |  3KB  |  95 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Desktop\Icons\Visible Icons"
  5. "NAME"="Internet Explorer Main Icon"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Show "Internet Explorer" Icon on Desktop"
  8. "DESCRIPTION 1"="If you want to have the Internet Explorer icon on your Desktop, place a tick in the box above."
  9. "DESCRIPTION 2"="In order to activate the changes, it may be necessary to refresh the Desktop or to press the F5 Key."
  10. "DESCRIPTION 3"="Note: Showing the icon in Internet Explorer 4.x or 5.0x only effects the current user, whereas showing the icon in Internet Explorer 2.x, 3.x and 5.5x affects all users of this machine."
  11. "COMMENT 1"="Thanks to TeXHeX [TeXHeX@xteq.com] for some of the code."
  12. "VERSION"="3.20"
  13. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  14. "CONTACTURL"="http://www.xteq.com/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16.  
  17. sIEV="HKLM\Software\Microsoft\Internet Explorer\Version"
  18. sIE2="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\{FBF23B42-E3F0-101B-8488-00AA003E56F8}"
  19. sIE4="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoInternetIcon"
  20. sIE5="HKCR\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\ShellFolder\Attributes"
  21.  
  22. SUB Plugin_Initialize
  23. ' Step 1: What version of IE are we using? Let's find out...
  24.  s=RegReadValue(sIEV)
  25.  
  26. ' Step 2: Disable if it is IE1
  27.  if s<"2" then
  28.   Call Disable()
  29.  end if
  30.  
  31. ' Step 3:
  32. ' This has been removed since it actually works under IE6 (!)
  33.  
  34. ' Step 4: Read Values
  35.  f=RegPathExists(sIE2)
  36.  if f=true then
  37.   Call SetUIElement(1,true)
  38.  end if
  39.  
  40.  i=RegReadValue(sIE4)
  41.  if IsEmpty(i) or i="00000000" then
  42.   Call SetUIElement(1,true)
  43.  end if
  44.  
  45.  i=RegReadValue(sIE5)
  46.  if i="36" then
  47.   Call SetUIElement(1,true)
  48.  end if
  49. END SUB
  50.  
  51. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  52.  ' Firstly, we need to make sure that the user can actually SEE the icon...
  53.  Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoInternetIcon",0,2)
  54.  
  55.  s=RegReadValue(sIEV)
  56.  if s<"4" then
  57.   b=GetUIElement(1)
  58.   ' Sorry TeX - I've stolen your code here...
  59.   if b=true then
  60.    Call RegWriteValue(sIE2 & "\@","",1)
  61.   else
  62.    if RegPathExists(sIE2) then
  63.     if RegValueExists(s & "\Removal Message") then
  64.      Call RegDeleteValue(s & "\Removal Message")
  65.     end if 
  66.     'finally delete the path 
  67.     Call RegDeletePath(s)
  68.    end if
  69.   end if
  70.  end if
  71.  
  72.  if s<"5.5" then
  73.   b=GetUIElement(1)
  74.   if b=true then
  75.    Call RegWriteValue(sIE4,"00000000",3)
  76.   else
  77.    Call RegWriteValue(sIE4,"01000000",3)  
  78.   end if
  79.  end if
  80.  
  81.  if s>"5.5" then
  82.   b=GetUIElement(1)
  83.   if b=true then
  84.    Call RegWriteValue(sIE5,"36",2)
  85.   else
  86.    Call RegWriteValue(sIE5,"1048612",2)  
  87.   end if
  88.  end if
  89.  
  90.  Call IndicateSettingChange()
  91. END SUB
  92.  
  93. SUB Plugin_Terminate
  94. END SUB
  95.